home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / File-Archive / Depack < prev    next >
Encoding:
Text File  |  2000-05-27  |  436 b   |  11 lines
  1. if not exists env:quickstarted
  2. Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
  3. wait 2
  4. quit
  5. endif
  6.  
  7. requestfile drawer "`list Depack lformat=%F`" title "Bitte Archiv auswählen:" pattern=(#?.lha) >env:archiv
  8. requestfile drawer "`list depack lformat=%F`" Title "Bitte Zielverzeichnis auswählen:" drawersonly >env:ziel
  9. lha x $archiv $ziel >nil:
  10. Requestchoice "Amiga Plus CD (C)" "Ich habe fertig!" "O.K." >NIL:
  11. quit